home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / print select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  88 lines
  1. 3 gosub10000
  2. 5 b=198
  3. 6 bl$="                                       ":gosub 7:goto9
  4. 7 open15,8,15,"i0":close15:open2,8,2,"$":forx=0to156:get#2,a$:next
  5. 8 get#2,a$:si=val(a$):close2:return
  6. 9 poke53281,.:poke53280,5
  7. 10 print"[147]        [204][207][193][196][211][212][193][210][160][200]ardcopy [211]etup         "
  8. 15 print"[158]  [215]hat selection below best describes"
  9. 16 print"  your printer?"
  10. 20 print"     1[154]) [195]ommodore 1525 or compatible"
  11. 30 print"     2[154]) [195]ommodore 1520"
  12. 40 print"     3[154]) [207]ld [195]ommodore 1515"
  13. 42 print"     4[154]) [207]ther printer"
  14. 45 print"     [209][154]) [209]uit"
  15. 50 print"     [208]ress 1[154], 2[154], 3[154], or [209][154].":poke198,.
  16. 60 a=peek(203):ifa<>56anda<>59anda<>8anda<>62anda<>11then60
  17. 65 ifa=56thenpa=4:sa=7:c8%=-1:goto300
  18. 70 ifa=62thengosub60000:goto50
  19. 80 ifa=59thenpa=6:sa=0:goto300
  20. 90 ifa=8thenpa=4:sa=7:c8%=0:goto300
  21. 200 print"[207].[203].[154], please enter the correct data"
  22. 202 print"for your printer:"
  23. 203 forx=0to10:printbl$:next
  24. 204 print"[197]nter primary   address --";:inputpa$:pa=val(pa$)
  25. 206 print:print:print"[154][197]nter secondary address --";:inputsa$:sa=val(sa$)
  26. 300 :
  27. 301 print"":forx=0to20:printbl$:next
  28. 302 print"[154][208]rimary address of"pa"[157][154]."
  29. 304 print"[211]econdary address of"sa"[157][154]."
  30. 305 :
  31. 310 print"[193]re these selections correct?"
  32. 312 print"          [[217][154]/[206][154]] or [209] [154]to [209]uit"
  33. 315 pokeb,0:waitb,1:geta$
  34. 320 ifa$<>"y"anda$<>"n"anda$<>"q"then315
  35. 325 :
  36. 330 ifa$="q"then540
  37. 340 ifa$="n"then10
  38. 345 goto500
  39. 350 :
  40. 360 print"":forx=0to20:printbl$:next
  41. 370 print"   [154][208]lease make sure side"ag"[154]of your"
  42. 375 print"   [204][207][193][196][211][212][193][210] disk is in your drive."
  43. 380 print" [208]lease press a key when you are ready."
  44. 381 print"          ([208]ress [209] [154]to [209]uit)"
  45. 382 pokeb,0:waitb,1:geta$:ifa$="q"then1000
  46. 400 gosub 7:ifag=sithen405
  47. 401 print"":forx=1to20:printbl$:next
  48. 402 print"[211]ide"ag"not found...":fordl=1to2000:next:goto360
  49. 405 gosub20000
  50. 410 print"   [208]rint file is now on this side"
  51. 412 print"            of the disk."
  52. 415 fordl=1to2000:next
  53. 416 return
  54. 450 :
  55. 500 ns=3:forag=1tons
  56. 510 gosub360
  57. 520 next ag
  58. 530 :
  59. 540 print"":forx=0to20:printbl$:next
  60. 542 print""
  61. 600 print"[208]lace [204][207][193][196][211][212][193][210] [211]ide [207]ne [154]in your drive"
  62. 610 print"and press any key to return to menu."
  63. 620 geta$:ifa$=""then620
  64. 700 open15,8,15,"r0:custom ls boot=custom ls boot":input#15,er:close15
  65. 710 ifer<>63then540
  66. 1000 load"custom ls boot",8
  67. 10000 cr$=chr$(13)
  68. 10005 open15,8,15
  69. 10010 open3,8,4,"setup"
  70. 10020 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  71. 10030 close3
  72. 10040 close15
  73. 10050 pa=val(d$(4)):sa=val(d$(5))
  74. 10060 return
  75. 20000 close15:open15,8,15
  76. 20010 d$(4)=mid$(str$(pa),2)
  77. 20012 d$(5)=mid$(str$(sa),2)
  78. 20070 open3,8,4,"setup":cr$=chr$(13)
  79. 20080 print#15,"p"chr$(0)"";
  80. 20082 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  81. 20100 close3
  82. 20110 close15
  83. 20120 return
  84. 60000 print"[145]  [154][193]re you sure you want to quit? ([217][154]/[206][154])":poke198,.
  85. 60010 a=peek(203):ifa<>25anda<>39then60010
  86. 60020 ifa=39thenprint"[145]                                      [145]":return
  87. 60030 goto540
  88.